home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 January: Mac OS SDK / Dev.CD Jan 97 SDK2.toast / Development Kits (Disc 2) / OpenDoc / OpenDoc Development / Debugging Support / OpenDoc™ Source Code / Messaging / OSL / OSLDspse.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-08-28  |  5.5 KB  |  220 lines  |  [TEXT/MPS ]
  1. /*
  2.     File:        OSLDspse.c (Orignal name: OSLDispose.c)
  3.  
  4.     Contains:    
  5.  
  6.     Owned by:    Nick Pilch
  7.  
  8.     Copyright:    © 1992 - 1995 by Apple Computer, Inc., all rights reserved.
  9.  
  10.     Change History (most recent first):
  11.  
  12.          <4>     6/23/95    NP        125932: Call system handlers if app
  13.                                     handlers fail.
  14.          <3>     1/12/95    jpa        Don't use obsolete Toolbox names [1211211]
  15.          <2>     8/19/94    NP        1181622: Ownership fix.
  16.          <7>      5/2/94    eeh        bug #1160654: various PPC native changes
  17.          <6>    10/18/93    NP        Added DisposeTokenProc callback support for
  18.                                     OpenDoc.
  19.          <5>     8/16/93    NP        Adjusted for latest OSL proposal.
  20.          <4>     7/29/93    NP        Added missing return value for
  21.                                     OLSDisposeToken.
  22.          <3>     7/28/93    NP        Mods for new token type, OSLToken.
  23.          <2>     7/21/93    NP        Fixed #includes.
  24.          <1>     7/21/93    NP        first checked in
  25.  
  26.     To Do:
  27.     In Progress:
  28. */
  29.  
  30. #ifndef __MIXEDMODE__
  31. #include <MixedMode.h>
  32. #endif
  33.  
  34. #ifndef _OSLPRIV_
  35. #include "OSLPriv.h"
  36. #endif
  37.  
  38. #pragma segment AEObjSuppt
  39.  
  40. // ———————————————————————— InternalDisposeToken ————————————————————————
  41.  
  42.         // disposes of OSLTokens without calling app's dispose token routine
  43.  
  44. pascal OSErr
  45. InternalDisposeToken( OSLToken* token )
  46. {
  47.     return AEDisposeDesc(token);
  48. }
  49.  
  50. // ———————————————————————— DisposeCompEvnt ————————————————————————
  51.  
  52.         // disposes of CompEvnt Handles
  53.  
  54. static void
  55. DisposeCompEvnt( CompareEvent c )
  56. {
  57.     if ( c != NULL )
  58.     {
  59.         IgnoreOSErr( AEDisposeDesc( &(*c)->theCompEvtInput )) ;
  60.         IgnoreOSErr( AEDisposeDesc( &(*c)->eventWParams ) ) ;
  61.         DisposeHandle((Handle)c ) ;
  62.     }
  63. } // DisposeCompEvnt
  64.  
  65.     /*———————————————————————— DisposeCompare ————————————————————————*/
  66.  
  67.         /*disposes of comparison Handles*/
  68. void
  69. DisposeCompare( Comparison c )
  70. {
  71.     if ( c != NULL )
  72.     {
  73.         IgnoreOSErr( AEDisposeDesc( &(*c)->theCompInput )) ;
  74.         DisposeObj( (*c)->obj1 ) ;
  75.         DisposeObj( (*c)->obj2 );
  76.         DisposeHandle((Handle)c ) ;
  77.     }
  78. } // DisposeCompare
  79.  
  80.     /*———————————————————————— DisposeLogical ————————————————————————*/
  81.  
  82. void
  83. DisposeLogical( Logical l )
  84. {
  85.     if ( l != NULL )
  86.     {
  87.         IgnoreOSErr( AEDisposeDesc( &(*l)->theLogicalInput ) ) ;
  88.         DisposeTerm( (*l)->firstTerm ) ;
  89.         DisposeHandle( (Handle)l ) ;
  90.     }
  91. } 
  92.  
  93.         
  94.     /*———————————————————————— DisposeTerm ————————————————————————*/
  95.  
  96. void
  97. DisposeTerm( Term t )
  98. /*disposes of test term Handles*/
  99.  
  100. {
  101.     if ( t != NULL )
  102.     {
  103.         DisposeTerm( (*t)->next ) ;
  104.         IgnoreOSErr( AEDisposeDesc( &(*t)->theTermInput ) ) ;
  105.  
  106.         switch ( (*t)->ttype )
  107.         {
  108.             case kCompare :
  109.                 DisposeCompare( (Comparison)(*t)->u.compar ) ;
  110.                 break ;
  111.             case kCompareEvt :
  112.                 DisposeCompEvnt( (CompareEvent)(*t)->u.cEvt ) ;
  113.                 break ;
  114.             case kLogical :
  115.                 DisposeLogical( (Logical)(*t)->u.log ) ;
  116.                 break ;
  117.         }
  118.             
  119.         DisposeHandle( (Handle)t ) ;
  120.     }
  121. } /*DisposeTerm*/
  122.  
  123.  
  124.     /*———————————————————————— DisposeWhose ————————————————————————*/
  125.  
  126. void
  127. DisposeWhose( Whose w )
  128.     /*disposes of Whose Handles*/
  129. { 
  130.     if ( w != NULL )
  131.     {
  132.         DisposeTerm( (*w)->theTerm ) ;
  133.         IgnoreOSErr( AEDisposeDesc( &(*w)->theWhoseInput )) ;
  134.         DisposeHandle( (Handle)w ) ;
  135.         /* don't dispose of whose value, it is an end product! */
  136.     }
  137. } /*DisposeWhose*/
  138.  
  139.  
  140.     /*———————————————————————— DisposeObj ————————————————————————*/
  141.  
  142. void
  143. DisposeObj( Object o )
  144. /*disposes of object records in comparison Handles*/
  145.  
  146. {
  147.     if ( o != NULL )
  148.     {
  149.         HLock( (Handle) o ) ;            /* AEDisposeDesc may write back, so don't let it move */
  150. //        WITH o** DO                        /* ...and as long as we're locking... */
  151.         {
  152.             ObjRecordPtr op = *o ;
  153.             DisposeObj( op->objContainer );
  154.             DisposeWhose( (Whose)op->objTheWhose );
  155.             IgnoreOSErr( AEDisposeDesc( &op->objSelectionData )) ;
  156.             IgnoreOSErr( AEDisposeDesc( &op->theObjInput )) ;
  157.  
  158.             /* objValue is sometimes a token, sometimes not.  eg in the case where
  159.               we are comparing a word with text obj2 has the text as its value. */
  160.  
  161.             if ( op->objRedo )
  162.             {
  163.             if ( !op->valIsExmn )
  164.                 IgnoreOSErr( iAEDisposeToken( &op->objValue ) ) ;
  165.             }
  166.             else if ( ! (op->objClass == typeToken) )            /* test added 4/4 as part of ccnt conversion */
  167. //                IgnoreOSErr( AEDisposeDesc( &op->objValue ) ) ;
  168.                 IgnoreOSErr( OSLDisposeToken( &op->objValue ) ) ;
  169.  
  170.         }
  171.         DisposeHandle( (Handle) o ) ;
  172.     }
  173. } /*DisposeObj*/
  174.  
  175.  
  176. ////////////////////////////////////////////////////////////////////////////////
  177. // iAEDisposeToken
  178. // if the app calls disposeToken and there is no such proc, it should return
  179. // an error -- NoSuchProcErr toka.  But if I call it and there is none,
  180. // AEDisposeDesc should be called instead.  Best solution for now is not
  181. // to treat the absence of a proc as an error; just default to disposeDesc().
  182. ////////////////////////////////////////////////////////////////////////////////
  183.  
  184. static OSErr
  185. TryOneProc( GlobalRecHandle aGlobalRef, OSLToken *theDesc )
  186. {
  187.     OSErr err = errAENotASpecialFunction ;        // with "|" below, fixes LLD-UPG-8 }
  188.     if ( aGlobalRef != NULL )
  189.     {
  190.         OSLDisposeTokenUPP aProcPtr = (*aGlobalRef)->diposeTokenProcPtr ;
  191.         if ( aProcPtr != NULL ) 
  192.             err = CallOSLDisposeTokenProc(aProcPtr, theDesc);
  193.     }
  194.     return err ;
  195. }
  196.  
  197.  
  198. pascal OSErr
  199. iAEDisposeToken( OSLToken *theDesc ) // Directly from Ed's stuff; not a word changed }
  200. {
  201.     OSErr err ;
  202.         
  203.     if ( theDesc->descriptorType != typeNull )
  204.     {
  205.         err = NewCallDisposeToken(theDesc);
  206. //        err = TryOneProc( GetGlobalRef(), theDesc ) ;
  207.         if ((err == errAEEventNotHandled)
  208.                 || (err == errAENotASpecialFunction) ) 
  209.             err = TryOneProc( GetSysGlobal(), theDesc ) ; // not there? then try the system-wide one
  210.         if (( err == errAEEventNotHandled)
  211.                 || (err == errAENotASpecialFunction) ) 
  212.             err = AEDisposeDesc( theDesc ) ;        // <eeh> here is err where i=166 from command-2
  213.     }
  214.     else
  215.         err = noErr ;
  216.  
  217.     return err ;
  218. } // iAEDisposeToken
  219.  
  220.